object Form1: TForm1
  Left = 192
  Top = 130
  Width = 979
  Height = 563
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 376
    Top = 24
    Width = 457
    Height = 177
    DataSource = dtsPatient
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'p_id'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Width = 97
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sex'
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sex_lookup'
        Width = 64
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 224
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
  object DBGrid3: TDBGrid
    Left = 288
    Top = 224
    Width = 457
    Height = 177
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'p_id'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Width = 97
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sex'
        Width = 46
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'sex_lookup'
        Visible = True
      end>
  end
  object dtsPatient: TDataSource
    DataSet = cdsPatient
    Left = 219
    Top = 74
  end
  object dspMzPatient: TDataSetProvider
    DataSet = adqMzPatient
    Left = 147
    Top = 74
  end
  object adqMzPatient: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=sql;Persist Security Info=True;User' +
      ' ID=sa;Initial Catalog=kmetyy_his_mz;Data Source=192.168.1.216\s' +
      'ql2008r2'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from mz_patient(nolock)'
      'where p_id = '#39'001585322000'#39)
    Left = 115
    Top = 74
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 168
    Top = 176
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 208
    Top = 176
  end
  object cdsPatient: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspMzPatient'
    OnCalcFields = cdsPatientCalcFields
    Left = 187
    Top = 75
    object cdsPatientp_id: TStringField
      FieldName = 'p_id'
      Size = 12
    end
    object cdsPatientname: TStringField
      FieldName = 'name'
      Size = 32
    end
    object cdsPatientsex: TStringField
      FieldName = 'sex'
      FixedChar = True
      Size = 1
    end
    object cdsPatientbirthday: TDateTimeField
      FieldName = 'birthday'
    end
    object cdsPatientbirth_place: TStringField
      FieldName = 'birth_place'
      Size = 50
    end
    object cdsPatienthome_district: TStringField
      FieldName = 'home_district'
      Size = 50
    end
    object cdsPatienthome_street: TStringField
      FieldName = 'home_street'
      Size = 50
    end
    object cdsPatienthome_tel: TStringField
      FieldName = 'home_tel'
      Size = 32
    end
    object cdsPatienthome_zipcode: TStringField
      FieldName = 'home_zipcode'
      FixedChar = True
      Size = 6
    end
    object cdsPatientrelation_name: TStringField
      FieldName = 'relation_name'
      Size = 32
    end
    object cdsPatientrelation_code: TStringField
      FieldName = 'relation_code'
      Size = 2
    end
    object cdsPatientrelation_tel: TStringField
      FieldName = 'relation_tel'
      Size = 16
    end
    object cdsPatientresponse_type: TStringField
      FieldName = 'response_type'
      Size = 2
    end
    object cdsPatientcontract_code: TStringField
      FieldName = 'contract_code'
      Size = 6
    end
    object cdsPatientinsurl_code: TStringField
      FieldName = 'insurl_code'
      Size = 6
    end
    object cdsPatientoccupation_type: TStringField
      FieldName = 'occupation_type'
      Size = 4
    end
    object cdsPatientmax_times: TIntegerField
      FieldName = 'max_times'
    end
    object cdsPatientmax_ledger_sn: TIntegerField
      FieldName = 'max_ledger_sn'
    end
    object cdsPatientsetup_date: TDateTimeField
      FieldName = 'setup_date'
    end
    object cdsPatientblack_flag: TStringField
      FieldName = 'black_flag'
      FixedChar = True
      Size = 1
    end
    object cdsPatientpy_code: TStringField
      FieldName = 'py_code'
      Size = 8
    end
    object cdsPatientmarry_code: TStringField
      FieldName = 'marry_code'
      FixedChar = True
      Size = 1
    end
    object cdsPatientcountry_code: TStringField
      FieldName = 'country_code'
      Size = 2
    end
    object cdsPatientnation_code: TStringField
      FieldName = 'nation_code'
      Size = 2
    end
    object cdsPatientbalance: TBCDField
      FieldName = 'balance'
      Precision = 12
      Size = 2
    end
    object cdsPatientexternal_code: TStringField
      FieldName = 'external_code'
      Size = 16
    end
    object cdsPatientwork_place: TStringField
      FieldName = 'work_place'
      Size = 64
    end
    object cdsPatientmobile_tel: TStringField
      FieldName = 'mobile_tel'
    end
    object cdsPatiente_mail_address: TStringField
      FieldName = 'e_mail_address'
      Size = 32
    end
    object cdsPatientsocial_code: TStringField
      FieldName = 'social_code'
    end
    object cdsPatientsex_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'sex_lookup'
      Size = 8
    end
    object cdsPatientresponse_type_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'response_type_lookup'
      Size = 32
    end
    object cdsPatientmarry_code_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'marry_code_lookup'
      Size = 32
    end
    object cdsPatientnation_code_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'nation_code_lookup'
      Size = 32
    end
    object cdsPatientrelation_code_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'relation_code_lookup'
      Size = 32
    end
    object cdsPatientinsurl_code_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'insurl_code_lookup'
      Size = 32
    end
    object cdsPatientcontract_code_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'contract_code_lookup'
      Size = 32
    end
    object cdsPatientoccupation_type_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'occupation_type_lookup'
      Size = 32
    end
    object cdsPatientcountry_code_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'country_code_lookup'
      Size = 32
    end
    object cdsPatientp_id_abb: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'p_id_abb'
      Size = 10
    end
    object cdsPatienteucational_level: TStringField
      FieldName = 'educational_level'
      Size = 50
    end
    object cdsPatienthic_no: TStringField
      FieldName = 'hic_no'
    end
    object cdsPatientgh_responce: TStringField
      FieldName = 'gh_responce'
      Size = 2
    end
    object cdsPatientgh_responce_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'gh_responce_lookup'
      Size = 32
    end
    object cdsPatientguardian: TStringField
      FieldName = 'guardian'
      Size = 2
    end
    object cdsPatientguardian_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'guardian_lookup'
      Size = 32
    end
    object cdsPatientfee_type: TStringField
      FieldName = 'fee_type'
      Size = 2
    end
    object cdsPatientfee_type_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'fee_type_lookup'
      Size = 32
    end
    object cdsPatientpsychic_type: TStringField
      FieldName = 'psychic_type'
      Size = 2
    end
    object cdsPatientpsychic_type_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'psychic_type_lookup'
      Size = 32
    end
    object cdsPatientallergy: TStringField
      FieldName = 'allergy'
      Size = 50
    end
    object cdsPatientlong_treatment: TStringField
      FieldName = 'long_treatment'
      Size = 50
    end
    object cdsPatientedu_type: TStringField
      FieldName = 'edu_type'
      Size = 2
    end
    object cdsPatientedu_type_lookup: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'edu_type_lookup'
      Size = 32
    end
    object cdsPatientallergy_has: TSmallintField
      FieldName = 'allergy_has'
    end
    object cdsPatientallergy_history: TStringField
      FieldName = 'allergy_history'
      Size = 100
    end
    object cdsPatientallergy_source_text: TStringField
      FieldName = 'allergy_source_text'
      Size = 255
    end
    object cdsPatientallergy_source_code: TStringField
      FieldName = 'allergy_source_code'
      Size = 255
    end
    object cdsPatientallergy_simptom_text: TStringField
      FieldName = 'allergy_simptom_text'
      Size = 100
    end
    object cdsPatientallergy_simptom_code: TStringField
      FieldName = 'allergy_simptom_code'
      Size = 2
    end
    object cdsPatientallergy_drug: TStringField
      FieldName = 'allergy_drug'
      Size = 50
    end
    object cdsPatientallergy_status_code: TStringField
      FieldName = 'allergy_status_code'
      Size = 2
    end
    object cdsPatientallergy_seriously_code: TStringField
      FieldName = 'allergy_seriously_code'
      Size = 2
    end
    object cdsPatientvip_level: TIntegerField
      FieldName = 'vip_level'
    end
    object cdsPatientvip_package: TIntegerField
      FieldName = 'vip_package'
    end
    object cdsPatientpackage_times: TIntegerField
      FieldName = 'package_times'
    end
  end
end
